Can't Edit a Share Module

I have access to a share module, but when I lock the module and try to change the text I can't.
I already check the privilages of the module and I have read and write access to the module and to the objects.
The objects have the correct settings.

3 - inherited
3.1 - inherited
3.1.1 - specific
3.1.1.1 - inherited
3.1.1.2 - inherited
3.1.1.3 - inherited

If anyone had the same problem please let me know the possible solution.
Thanks,
SystemAdmin - Tue Feb 10 12:13:19 EST 2009

Re: Can't Edit a Share Module
Doug.Zawacki - Tue Feb 10 14:36:34 EST 2009

Hi Doug,

Have you run sharable sections on this module? What is the sharing level you are using?

Re: Can't Edit a Share Module
SystemAdmin - Wed Feb 18 14:06:45 EST 2009

Doug.Zawacki - Tue Feb 10 14:36:34 EST 2009
Hi Doug,

Have you run sharable sections on this module? What is the sharing level you are using?

Yes, It was cofigured to shareable, I don't know up to which level, but i'm sure it was 4th level. How can i know that? Is there a script to check that particular module configuration?

Re: Can't Edit a Share Module
Tony_Goodman - Thu Feb 19 04:36:10 EST 2009

SystemAdmin - Wed Feb 18 14:06:45 EST 2009
Yes, It was cofigured to shareable, I don't know up to which level, but i'm sure it was 4th level. How can i know that? Is there a script to check that particular module configuration?

Not quite sure what's going on here, but take a look at the permissions on the objects. It may be that you were given access to the module AFTER the shareable sections were created. In this case the objects with specific access rights would not inherit permissions for you.

Re: Can't Edit a Share Module
llandale - Mon Feb 23 17:48:49 EST 2009

First attempt at copying code and attaching a file, forgive ignorance if it doesn't work. Here's two old programs, one is a Layout (or AttrDXL) that displays the current access rights of the module. The 2nd is an on-demand script that filters the module for your shared sections.

// LO-Shared.dxl - Display Object Specific Access Rights.
/*
LO-Shared.dxl displays the specific access records, if any, for the current object. Such objects are
the "Shared Sections" of interest when a module is opened "Edit Shared". The user/group name is displayed
along with its access (e.g. "Admins RMCDA"). Nothing is displayed for Objects with "inherited" access.

Can be used as either Layout or Attribute DXL. For objects with no access records, "null" is dislayed
for Layout wherease a space " " is displayed for attr dxl.
*/
// v 1.0 11 Oct 99 Landale
// 1.1 4 Nov 99 Added "\n" after display line
// is doneOnce.
// 1.2 11 Nov 99 Fixed donOnce -> doneOnce.
// 1.3 29 Nov 99 Added "disp" to accumulate display
// Adjusted "user" name display
// v 2.0 01-Apr-11 Modified for v5.0
// 2.1 02-Apr-12 Renamed from LO-AccessRed to LO-Shared.
// v 3.0 02-Jun-28 Renamed to *.dxl.
// 3.0a 03-Mar-05 Comment Improvements; tweaks
// 4.0 03-Aug-24 Accomdate AttrDXL. Turned into a function. Used Buffers. Facelift.

/***********************/
string fGetObjAccess(Object oCurr)
{ // Get a string block summarizing the object's access records
// Return null if this object has 'inherited' access
AccessRec ar
string NameUser
string Results = "" // Display nothing
string CR = ""
Buffer RMCDA = create
Buffer Accumulate = create

// string Blanks = " "
// const int BlanksLen = length(Blanks) // Limit length of displayed user name

for ar in oCurr do
{
NameUser = username (ar)
// print "fGetObjAccess, ar NameUser = " obj."Absolute Number" " '" NameUser "'\n"
if (null NameUser)
NameUser = "Everyone else"
// else NameUser = NameUser Blanks // add trailing blanks
// NameUser = NameUser0:BlanksLen-1 // to improve display
RMCDA = ""
if ( read(ar)) RMCDA += "R"
if ( modify(ar)) RMCDA += "M"
if ( create(ar)) RMCDA += "C"
if ( delete(ar)) RMCDA += "D"
if (control(ar)) RMCDA += "A"
if (null stringOf(RMCDA)) RMCDA = "None"

Accumulate += CR
Accumulate += NameUser
Accumulate += "\t"
Accumulate += stringOf(RMCDA)
CR = "\n" // this is used for each additional record
} // end for access records for object
Results = stringOf(Accumulate)
delete(Accumulate)
delete(RMCDA)
return(Results)
} // end fGetObjAccess

string Results = fGetObjAccess(obj)
// Now display the results, either as an Attribute DXL or as a Layout.
// If as an attribute DXL, display a space " " rather than a null.
if (null attrDXLName)
display(Results) // This is a Layout. (Yes, display null if that's the result)
elseif (null Results)
obj.attrDXLName = " " // Default Attr DXL
else obj.attrDXLName = Results // This is an Attr DXL

//

end file LO-Shared.dxl

Attachments

attachment_14220510_filtShared-v21s.dxl